home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / qmp-dos / msi-echo.scr < prev    next >
Text File  |  1994-04-02  |  2KB  |  77 lines
  1. ;
  2. ;   Script for doing automated QWK mail runs
  3. ;   Written by MSI, Inc.
  4. ;
  5. ;  NOTES:
  6. ;  - You MUST name your dialing directory MSI_MAIL_RUN for this script
  7. ;    to work!
  8. ;  - You MUST create a attached note to the dialing directory entry with
  9. ;    your BBS LOGIN name and password in it!
  10. ;       ie. !WHATEVER BBS PASSWORD
  11. ;  - Menus MUST be set to either [R]egular or [E]xpert for this script to
  12. ;    work!
  13. ;
  14.  
  15. TurnON   8_BIT
  16. TurnOFF  LINEFEED
  17. TurnOFF  XON/XOFF
  18. TurnOFF  NOISE
  19. TurnON   SCROLL
  20. TurnOFF  PRINT
  21. TurnOFF  SPLIT
  22. TurnON   STATUSLN
  23. TurnOFF  DOORWAY
  24.  
  25. STRING PACKET
  26.  
  27. TimeOut  45       ; Set Waitfor for 45 seconds
  28.  
  29. ASSIGN PACKET MUSTANG  ; Assign first 8 chars of the QWK packet here.
  30. IF $ONLINE SKIP_DIAL
  31.  
  32. DIAL "TMSI_MAIL_RUN"  ; Dial entry that matches MSI_MAIL_RUN.
  33.  
  34. SKIP_DIAL:
  35.  
  36. OPENFILE $NOTEFILE READ
  37. READFILE 1   ; Read login name from notefile.
  38. CLOSEFILE
  39.  
  40. Waitfor "What is your first name?"
  41. Delay   100
  42. Send "$1^M"
  43.  
  44.  
  45. Waitfor "]:"  ; Tomcat Main Menu Prompt
  46. Delay   100
  47. When "load!" TEST_FOR_REP
  48. Send    "D"
  49.  
  50. DOWNQWK:
  51. TimeOut 300
  52. Waitfor "done?"
  53. Delay   100
  54. Send    "Y"
  55. Waitfor "now"
  56. Download Z $DLPATH
  57.  
  58. TEST_FOR_REP:
  59. EXIST $ULPATH$PACKET.REP UPLOAD_REP  ; Test for existance of reply packet
  60. GOTO END
  61.  
  62. UPLOAD_REP:              ; Subroutine for uploading reply packet
  63. Send     "^M"
  64. Waitfor  "]:"
  65. Delay    100             ; Once a reply packet is uploaded successfully
  66. Send     "U"             ; You may hang up. Tomcat will continue to
  67. Waitfor  "now"           ; insert your messages and the board will
  68. UPLOAD Z $ULPATH$PACKET.REP   ; recycle when Tomcat is done. This script hangs
  69. Waitfor  "Successful"    ; up as soon as the reply packet is uploaded.
  70. GOTO END
  71.  
  72. END:
  73. HANGUP
  74. SYSTEM Y
  75. Exit
  76.  
  77.